home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 4 / Night Owl's Shareware - PDSI-004-1 - Wayzata Technology (1990).iso / 029a / fthd.rpt < prev    next >
Text File  |  1989-07-20  |  2KB  |  60 lines
  1.      /*         MESSAGE BASE SUBJECT THREAD REPORT          */
  2.      /*             Usage: GAPREPRT FTHD.RPT M              */
  3. START
  4. VIRTUAL
  5.   msg_file      STRING  32      "D:\GAP\MAIN\MSGS.DAT"        /* Message base */
  6.   str_number    STRING  12      LNG_STR(number)
  7.   left_date     DATE     4      date
  8.   read_date     DATE     4      (STRIP(to) <> "ALL" AND date_read = 0)
  9.                                  ? 1 : date_read
  10.   select        INT2     2      (STRIP(subject) = "COMMENT") ? 3 : 0
  11.                                  
  12.   referto       STRING  12      (refer = 0) ? "None" : LNG_STR(refer)
  13.  
  14.   vf1           INT2     2      (type <> 82 AND type <> 83) ? 1 : 0
  15.   vf2           INT2     2      (type = 82) ? 2 : 0
  16.   vf3           INT2     2      vf1 + vf2              /* This Section    */
  17.                                                        /* allows you to   */
  18.   security      STRING 10      : vf3                   /* manipulate the  */
  19.                                  0 "Password"          /* the security    */
  20.                                  1 "None"              /* field.          */
  21.                                  2 "Private"
  22.  
  23. SEARCH 
  24.   FILE msg_file USING_KEY num_idx    /* # after index = forum # */
  25.  
  26. SELECT
  27.    type <> 82 AND select <> 3      /* no private mail, no COMMENTS */
  28.  
  29. SORT USING_KEY
  30.   NO_MOD       subject            /* Alphabetically by Subject */
  31.   INTEGER      number             /* This is most appealing    */
  32. CONTROL
  33.  
  34.   1     subject
  35.  
  36.  
  37. ACCUMULATOR                       /* keep a running total  */
  38.  
  39.   thread_total  FRQ     subject
  40.  
  41. DISPLAY
  42.  
  43.   DEVICE        OUTFILE
  44.   PAGE_LENGTH   0
  45.  
  46. IMAGE
  47.  
  48. REPORT_HDR                        /* Change Forum Name below */
  49. +
  50. +       WRITERS FORUM MESSAGE THREAD REPORT - as of @xxxxxxx
  51.                                                     SYS_DATE
  52. +
  53. + Start #  Who Started It All    What It is All About   Total Msgs
  54. + ════════════════════════════════════════════════════════════════
  55. +
  56. CONTROL_FTR(1)
  57. +  @xxxxx  @xxxxxxxxxxxxxxxxxxxx @xxxxxxxxxxxxxxxxxxxxx   @999
  58.    number  from                  subject                  thread_total
  59. EXIT
  60.